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COPY 



? EXECUTE PATCH/MERQE 



PACKET 1025 

INPUT 32 CARDS FROM CRA 

TIME 1553 

DATE 77012 WEDNESDAY* 01/12/77 



#** MESSAGE OF THE DAY *** 

WELCOME TO B5700 TIME SHARING, 

MAY YOUR DATA BE DEPENDABLE AND YOUR PROGRAMS PROVEN. 
FROM THE STAFF OF THE BIG BAD BURROUGHS* 

*** BURROUGHS B5700 TSMCP MARK XVI, 0,69 AND INTRINSICS MARK XVI,0.00 *** 

? EXECUTE PATCH/MERGE 

? FILE CARD* PMCARO 
7 DATA PMCARD 

4IPATCH/MERGES 2 BQJ 1553 10/12/76 

COA IN PMCARDlPATCH/MERGE* 2 

PBD1025 OUT Oil LINE IPATCH/MERGE» 2 

DKA OUT 5ER MASTE^F 00OOO0QIPATCH/MERQE» 2 

DKA OUT SER PATCHDE 00O0OO0IPATCH/m£RGE» 2 

DKA OUT SER SORTLIN 0000000IPATCH/mERQE» 2 v 

CDA REl PMCAROIPATCH/MERGE* 2 



7END, 



PATCHOE^OOOOOOO/OOOOOOO" O SeGS — CREATED 01/12/77 aT 00»2l»23J32 

DKA REl PATCHdE 0000000»PATCH/MERGE8 2 

SORTLIN/OOOOOOO/OOOOOOO* 450 SEGS— CREATED 01/12/77 AT 15»53I31«15 

DKA REl SORTLIN OOOOOOOIPATCH/MERGE* 2 

PBD1025 REL Oil LINE 80IPATCH/MERGE« 2 

MASTeRf/OOOOOOO/OOOOOOO* 300 SEGS— CREATED 01/12/77 AT 15«53I29«3V 

DKA REL MASTERF 0000000 IPATCH/MERQE* 2 

PATCH/MERGES 2iPST» 4 EOJ 

PKT#1025 REMOVED 



LABEL OOOOOOOOOLINE 00177012? EXECUTE PATCH/MERGE 

BURROUGHS B-5700 PATCh/MERqE PROGRAM MARK XVI, 0.00 WEDNESDAY* 01/12/77* 



PATCH /MERGE 



3153 PM 



********** 



INPUT 



**^^^t^l*^'***1l**^l^,i,1,1,1,1,^l*^,1,^,^,^,^,^,^l^,^,^^,1^1i1,^,^,^,i,^,1,1,■^l1,i,1,^,^l1,^,^,^,i,1,^,^,1,^,i^1,1,^,^,^,^^,^,^,^f^,^,^,^,^,^^,^^^^^,^, 



SPCARD CONFLICTS LIST NQNO M|RGE Zlf 
»t 1 PATCHES FOR COPY 



CARD INPUT IS PMCARD 
PATCHES/COPY IS NOT ON PISK 
PATCH /COPY IS NOT ON DISK 

»* COMPILE NUCOPY/CANDE WItH tSPOU LIBRARY 

$* TSPOL STACK * 1024 , COMMENT TSPOLSTAcK ISNPT GIG ENOUGH 

»♦ TSPOL F-ILE TAPE « SYMBOL/COPY OISK SERIAL 

»* CORE » 4000, COMMENT SETS CORE EST FQR CANOE TO 4000 WORDS 

$* STACK • 256, CANOE STACK NEEDS NO MORE THAN 256 WORDS 

** DATA CARD 

$- ***** THIS LISTING SHOWS PATCHES IMPLEMENTED AT UCSC ***** 

♦set list single 
sset single reset list 
$set single 

*SET TAPE 



S#PATCH NUMBER 900 FOR COPY CONTAINS 13 CARqS 



C 0900 



FILE OUT 
FILE OUT 
FILE OUT 
SWITCH FI 
0Sl«i3S 
DEFINE XO 

real hhic 
printer i 
whjchprnt 

IF 



PRNT 17 (2*17); % UNIT » 2 
LPAPRNT 15 "LPA" "lPA" (2*10^ 
LPBPRNT 15 "LPs" "LPB" (2*17)1 
LE PRINTFILES i» PrNT* LPAPRNT* 
LlT^RECQRDS COpIED, LAST RECORD 
0UTPUTNaME,C6I6]#; 

hprnt; 

• X0«''2'' OR XO-^S" OR xOs^ft"; 



LPBPRNTi 
COPIED*"; 



% COPY TO 



PRINTER* 
ELSE 2; 



i« IF xob«2« Then o else if xo»«5" then i 

PRINTER THEN WRi TECPRlNTFlLESt WHICHPRNTHOBL ]* I * AC * 3 ) 
ELSE WrITE(PNCH*I»AC*3); 
IF PRINTER THEN WRITE(PRINTFIlESCwHICHPRNTK08L J ); 
WRITE(PRINTFILeSCWHICHPRNTJ#J*AC*3); 
$1 BY MJF AND TJP - UCSC CENTRAL 



LPA* OR LPB 



00011600 
00OU610 
00011620 
00011750 
00017900 
00038640 
00038650 
00040900 
00041050 
00047700 
00047710 
00047800 
00055400 



C 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 



0900 
0900 
0900 
0900 
0900 
0900 
0900 
0900 
0900 
0900 
0900 
0900 
0900 
0900 



********** GENERATED OUTPUT ********************************************************************************** 



tSN^T GIQ ENOUQH 



4000 W0H05 
WORDS 



? COMPILE NUCQPY/CANDE WITH TSPQL LIBRARY 

? TSPOL STACK • 1024 , COMMENT TSPQL STACK 

? TSPOU fllZ TAPE » SYMBOL/COPY DISK SERIAL 

? CORE « 4000. COMMENT SETS CORE EST FOR CANDE TO 

7 STACK • 256, CANDE STACK NEEDS NQ MORE THAN 256 

7 DATA CARD 

SSET LIST SINGLE 

SSET SINGLE RESET LIST 

4SET SINGLE 

SSET TAPE 

FILE OUT PRNT I? (2»l7)i 

FILE OUT LPAPRNT 15 "LPA" 

FILE OUT LPBPRNT 15 "LPB" 

SWITCH FILE PRINTFILES is 

0SI»35LIT-REC0RBS COPIED, LAST RECORD 
DEFINE XO » OUTPUTNAME.[6»63#i 

REAL whichprnt; 

PRINTER «» XO*"?" OR XOs^S" OR xO'^d"; % COPY TO PRINTER* LPA# OR 

WHICHPRNTI* IF XO^^a" ThEN ELSE IF XO^^S" THEN I ELSE if 

IF PRINTER THEN WrITEC PRI NTF IlESC WHICHPRNT 3 1 DBL 3 #1 #AC * 3 ) 
ELSE WRnE(PNCH*I#AC*3)i 

IF PRINTER THEN HrITEC PRInTFIlESC WHJCHPRNT 3 CDBLJ ); 

write(printfiles[whichprnT3'J*ac*3); 

END. 
? END. 



% UNIT » 2 
"LPA" (2*17); 

♦•LPS" C2#l7); 
PRNT* LPAPRNT* 



LPBPRNT' 
COPIED^"; 



OOOOOOOl 
00000002 
00000003 
00000004 
00000005 

oooooooh 



00011600 


C 


0900 


000U610 


C 


0900 


OOOU620 


c 


0900 


00011750 


c 


0900 


00017900 


c 


0900 


00038640 


c 


0900 


00038650 


c 


0900 


LPB 00040900 


c 


0900 


00041050 


c 


0900 


00047700 


c 


0900 


00047710 


c 


0900 


00047800 


c 


0900 


00055400 


c 


0900 


99999999 


c 


0900 


OOOOOOOH 







NUMBER OF errors DETECTED • 0. 
PROCESSOR TIME « 3 SECONDS, 
I/O TIME «» 8 SECONDS, 



LABEL OOOOOOOOOLlNE 00177012? EXECUTE PATCH/MERGE 



PATCH /MERGE 



-• * ' * »^ ^ 



-• • 



? COMPILE NUCQPY/CANDE WItH TSPQL LIBRARY 

PACKET 1026 

INPUT 25 CARDS FROM 41P 

TIME 1553 

DATE 77012 WEDNESDAY* 01/12/77 



*** MESSAGE OF THE DAY *** 

WELCOME TO B5700 TIME SHARING, 

MAY YOUR DATA BE DEPENDABLE AND YOUR PROGRAMS PROVEN. 
FROM THE STAFF qF THfc BIG BAD BURROUGHS. 

*** BURROUGHS B5700 TSmCP MARK XVI, 0,69 AND INTRINSICS MARK XVI,0.00 *** 

7 COMPILE NUCOpY/CANDE WITH TSPUL LIBRARY 

? T5PQL STACK- 1024, COMMENT TSPOL STACK ISNPT GIG ENOUGH 
7 TSPOL FILE TAJ»E» SYMBOL/COPY DISK SERIAL 

7 CORE* 4000, COMMENT SETS CORE EST FOR CANOE TO 4000 WORDS 
7 STACKS 256, CANDE STACK NEEDS NO MQRE THAN 256 WORDS 
7 DATA CARD 

4ITSP0i,/NUC0PY«0l SCHEDULED 1553. BACKGROUND 

4ITSP0L/NUCQPY* 2 90j 1553 08/28/76 

CDS IN CARD D8lTSPOL/NUC0PY« 2 

DKA IN SER SYMBOL COPY I TSPOL/NUCOPY«» 2 

DKA OUT ROM NUCOPY CANOEl TSPOL/NUCOPY* 2 

DKA LOk NUCOPy CANDE I TSPOL/NuCO^Ys 2 

DKA REL symbol COPY ITSPOL/NUcOPT* 2 

CD8 RfL CARD DB«TSPOl/NUCOPY» 2 
7END, 

TSPOL/NUCOPYb 2»PST» 21 EOj 

PKT#1026 removed 



